    Err.Number = vbObjectError + 1052